task MusicControl{
let stage;								//Xe[Wi[ϐ
let Music1 = GetCurrentScriptDirectory~"\Bgm\ametowa.mp3";		//Xe[WPy
let Music2 = GetCurrentScriptDirectory~"\Bgm\fukaki.mp3";		//Xe[WQy
let Music3 = GetCurrentScriptDirectory~"\Bgm\toki.mid";			//Xe[WRy
let Music4 = GetCurrentScriptDirectory~"\Bgm\ginjukai.mp3";		//Xe[WSy
let Music5 = GetCurrentScriptDirectory~"\Bgm\minosuisyou.mid";		//Xe[WTy
let Music6A = GetCurrentScriptDirectory~"\Bgm\edge.mp3";		//Xe[WU`y
let Music6B = GetCurrentScriptDirectory~"\Bgm\emergency.mp3";		//Xe[WUay
let MusicFinal = GetCurrentScriptDirectory~"\Bgm\set_us_free_loop.mp3";	//Xe[Wt@Ciy

LoadMusic(Music1);
stage = GetCommonData("STAGE");						//ʃf[^ŃXe[WmF

if(stage == 1){PlayMusic(Music1);}					//PʂȂAPʉy炷
while(stage == 1){stage = GetCommonData("STAGE");yield;}		//PʂI܂őҋ@
DeleteMusic(Music1);							//Pʉy폜
LoadMusic(Music2);
if(stage == 2){PlayMusic(Music2);}					//QʂȂAQʉy炷
while(stage == 2){stage = GetCommonData("STAGE");yield;}		//QʂI܂őҋ@
DeleteMusic(Music2);							//Qʉy폜
LoadMusic(Music3);
if(stage == 3){PlayMusic(Music3);}					//RʂȂARʉy炷
while(stage == 3){stage = GetCommonData("STAGE");yield;}		//RʂI܂őҋ@
DeleteMusic(Music3);							//Rʉy폜
LoadMusic(Music4);
if(stage == 4){PlayMusic(Music4);}					//SʂȂASʉy炷
while(stage == 4){stage = GetCommonData("STAGE");yield;}		//SʂI܂őҋ@
DeleteMusic(Music4);							//Sʉy폜
LoadMusic(Music5);
if(stage == 5){PlayMusic(Music5);}					//TʂȂATʉy炷
while(stage == 5){stage = GetCommonData("STAGE");yield;}		//TʂI܂őҋ@
DeleteMusic(Music5);							//Tʉy폜

LoadMusic(Music6A);
LoadMusic(Music6B);						
if(stage == 6){
if(GetCommonData("STAGE6_CHOOSE") == 1){PlayMusic(Music6A);}		//U`ʂȂAU`ʉy炷
if(GetCommonData("STAGE6_CHOOSE") == 2){PlayMusic(Music6B);}		//UaʂȂAUaʉy炷
}
while(stage == 6){stage = GetCommonData("STAGE");yield;}		//UʂI܂őҋ@
DeleteMusic(Music6A);							//U`ʉy폜
DeleteMusic(Music6B);							//Uaʉy폜
LoadMusic(MusicFinal);
if(stage == 7){PlayMusic(MusicFinal);}					//ŏIʂȂAŏIʉy炷
while(stage == 7){stage = GetCommonData("STAGE");yield;}		//ŏIʂI܂őҋ@
DeleteMusic(MusicFinal);						//ŏIʉy폜
loop{yield;}
}

task BGControl{
SetCommonData("ON_SPELL",0);
let stage;
let spell;
let BG1 = GetCurrentScriptDirectory~"\BG\yun_3780.jpg";
let BG2 = GetCurrentScriptDirectory~"\BG\eyes0048.jpg";
let BG3 = GetCurrentScriptDirectory~"\BG\seiryu808.jpg";
let BG4 = GetCurrentScriptDirectory~"\BG\yun_6914.jpg";
let BG5 = GetCurrentScriptDirectory~"\BG\yun_5626.jpg";
let BG6 = GetCurrentScriptDirectory~"\BG\ki809.jpg";
let BG7 = GetCurrentScriptDirectory~"\BG\1350-italy09-009.jpg";

stage = GetCommonData("STAGE");

LoadGraphic(BG1);
if(stage == 1){
SetTexture(BG1);SetGraphicRect(0,0,384,448);SetAlpha(150);yield;}
while(stage == 1){stage = GetCommonData("STAGE");yield;}
DeleteGraphic(BG1);


stage = GetCommonData("STAGE");

LoadGraphic(BG2);SetGraphicScale(2,2);
if(stage == 2){
SetTexture(BG2);SetGraphicRect(0,0,384,448);SetAlpha(150);yield;}
while(stage == 2){stage = GetCommonData("STAGE");yield;}
DeleteGraphic(BG2);


stage = GetCommonData("STAGE");

LoadGraphic(BG3);SetGraphicScale(1,1);
if(stage == 3){
SetTexture(BG3);SetGraphicRect(0,0,384,448);SetAlpha(200);yield;}
while(stage == 3){stage = GetCommonData("STAGE");yield;}
DeleteGraphic(BG3);

stage = GetCommonData("STAGE");

LoadGraphic(BG4);
if(stage == 4){
SetTexture(BG4);SetGraphicRect(0,0,384,448);SetAlpha(170);yield;}
while(stage == 4){stage = GetCommonData("STAGE");yield;}
DeleteGraphic(BG4);

stage = GetCommonData("STAGE");

LoadGraphic(BG5);
if(stage == 5){
SetTexture(BG5);SetGraphicRect(0,0,384,448);SetAlpha(200);yield;}
while(stage == 5){stage = GetCommonData("STAGE");yield;}
DeleteGraphic(BG5);

stage = GetCommonData("STAGE");

LoadGraphic(BG6);
if(stage == 6){
SetTexture(BG6);SetGraphicRect(0,0,384,448);SetAlpha(200);yield;}
while(stage == 6){stage = GetCommonData("STAGE");yield;}
DeleteGraphic(BG6);

stage = GetCommonData("STAGE");

LoadGraphic(BG7);
if(stage == 7){
SetTexture(BG7);SetGraphicRect(0,0,384,448);SetAlpha(180);yield;}
while(stage == 7){stage = GetCommonData("STAGE");yield;}
DeleteGraphic(BG7);

}